with Ada.Text_IO;
with Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;
use Ada.Text_IO;
with Fakt;
with Lnko;
with Fakt_Rek;

with Matrix_Pkg;
use Matrix_Pkg;

procedure F1 is
   M1 : Matrix(1..2,1..2);
   M2 : Matrix(1..2, 1..2);
begin
   Fill_Value(5, M2);
   Fill_Value(2, m1);
   Write(5*M2);
end F1;